10 PRINT"[147]":REM PASCAL-KOEFFIZIENTEN
20 PRINT"PASCAL-KOEFFIZIENTEN"
30 PRINT"********************"
40 DIMK(200):K(100)=1
50 INPUT" EXPONENT DES BINOMS";N
60 FORA=1TON
70 FORR=100-ATO100+ASTEP2
80 K(R)=K(R-1)+K(R+1)
90 NEXTR:NEXTA
100 PRINT"DIE KOEFFIZIENTEN SIND:"
110 FORI=100-NTO100+NSTEP2
120 PRINTK(I);
130 NEXTI